home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Snippets / Development Tools & Languages / Dialogs / UDialogs.cp < prev    next >
Encoding:
Text File  |  1992-07-15  |  2.4 KB  |  96 lines  |  [TEXT/MPS ]
  1. // Copyright © 1991 Apple Computer, Inc. All rights reserved.
  2.  
  3. #include "UDialogs.h"
  4.  
  5. extern "C" char* memcpy(void*, void*, int);
  6. #define pstrcpy(p,q)  memcpy(p, q, q[0]+1)        // added for translation: Pascal strcpy
  7.  
  8. const long    kFileType        =    '????';
  9. const short    kModelessID       =    2000;
  10.     
  11.  
  12. //----------------------------------------------------------------------------
  13.  
  14. #pragma segment AInit
  15. pascal void TDialogsApplication::IDialogsApplication()
  16. {
  17.     this->IApplication(kFileType);
  18.     
  19.     if (gDeadStripSuppression) {
  20.         TModelessView *aModelessView = new TModelessView;
  21.     }
  22.  
  23.     TWindow *aWindow = NewTemplateWindow(kModelessID, NULL);
  24.     aWindow->Open();
  25.  
  26. }
  27.  
  28.  
  29. //------------------------------------------------------------------------------
  30.  
  31. #pragma segment AInit
  32. pascal void TDialogsApplication::HandleFinderRequest()
  33. {
  34.     // don't open application by clicking on file
  35. }
  36.  
  37.  
  38. //------------------------------------------------------------------------------
  39.  
  40. #pragma segment ASelCommand
  41. pascal TCommand * TDialogsApplication::DoMenuCommand(CmdNumber aCmdNumber)
  42. {
  43.     switch (aCmdNumber){
  44.         default:                    //    always do this, so other objects get a chance
  45.             return inherited::DoMenuCommand(aCmdNumber);
  46.     }
  47. }
  48.  
  49.  
  50. //------------------------------------------------------------------------------
  51.  
  52. #pragma segment ARes
  53. pascal void TModelessView::DoChoice (TView *origView, short itsChoice)
  54. {
  55.     Str255        menuText;
  56.     Str255        selected;
  57.  
  58.     TEditText *anEditText1 = (TEditText *) this->FindSubView('edit');
  59.     TEditText *anEditText2 = (TEditText *) this->FindSubView('edi2');
  60.             
  61.     switch (itsChoice){
  62.         case mRadioHit:        // do something with the radio button selection
  63.  
  64.             if ( origView == (TRadio *) this->FindSubView('sel1') ){
  65.  
  66. #if qDebug
  67.     printf("User selected button 1\n");
  68. #endif
  69.  
  70.             anEditText2->DimState(TRUE,kDontRedraw);        // disable
  71.             anEditText2->ViewEnable(FALSE,kRedraw);
  72.             anEditText2->StopEdit();
  73.             
  74.             anEditText1->DimState(FALSE,kDontRedraw);        // enable
  75.             anEditText1->ViewEnable(TRUE,kRedraw);
  76.             anEditText1->StartEdit(TRUE,fTEView);
  77.             }
  78.             
  79.             else if ( origView == (TRadio *) this->FindSubView('sel2') ){
  80.  
  81. #if qDebug
  82.     printf("User selected button 2\n");
  83. #endif
  84.  
  85.             anEditText1->DimState(TRUE,kDontRedraw);        // disable
  86.             anEditText1->ViewEnable(FALSE,kRedraw);
  87.             anEditText1->StopEdit();
  88.             
  89.             anEditText2->DimState(FALSE,kDontRedraw);        // enable
  90.             anEditText2->ViewEnable(TRUE,kRedraw);
  91.             anEditText2->StartEdit(TRUE,fTEView);
  92.             }            
  93.             break; // case mRadioHit
  94.     }
  95.     inherited::DoChoice(origView,itsChoice);
  96. }